home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / tpex.arj / C9REVEX3.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-05  |  1KB  |  48 lines
  1. PROGRAM GradeAverages;
  2.  
  3. USES Crt;
  4.  
  5. VAR  Name1:       STRING[30];
  6.      Name2:       STRING[30];
  7.      Name3:       STRING[30];
  8.      Name4:       STRING[30];
  9.      Name5:       STRING[30];
  10.      Name6:       STRING[30];
  11.      Name7:       STRING[30];
  12.      Name8:       STRING[30];
  13.      Name9:       STRING[30];
  14.      Name10:      STRING[30];
  15.      Grade1:      REAL;
  16.      Grade2:      REAL;
  17.      Grade3:      REAL;
  18.      Grade4:      REAL;
  19.      Grade5:      REAL;
  20.      Grade6:      REAL;
  21.      Grade7:      REAL;
  22.      Grade8:      REAL;
  23.      Grade9:      REAL;
  24.      Grade10:     REAL;
  25.  
  26. BEGIN
  27.    CLRSCR;
  28.    WRITE( 'What is the students name and grade? ');
  29.    READLN( Name1, Grade1 );
  30.    WRITE( 'What is the students name and grade? ');
  31.    READLN( Name2, Grade2 );
  32.    WRITE( 'What is the students name and grade? ');
  33.    READLN( Name3, Grade3 );
  34.    WRITE( 'What is the students name and grade? ');
  35.    READLN( Name4, Grade4 );
  36.    WRITE( 'What is the students name and grade? ');
  37.    READLN( Name5, Grade5 );
  38.    WRITE( 'What is the students name and grade? ');
  39.    READLN( Name6, Grade6 );
  40.    WRITE( 'What is the students name and grade? ');
  41.    READLN( Name7, Grade7 );
  42.    WRITE( 'What is the students name and grade? ');
  43.    READLN( Name8, Grade8 );
  44.    WRITE( 'What is the students name and grade? ');
  45.    READLN( Name9, Grade9 );
  46.    WRITE( 'What is the students name and grade? ');
  47.    READLN( Name10, Grade10 );
  48. END.